UNIT HamLib;

INTERFACE

FUNCTION WaveLength(Freq : Real):Real;
FUNCTION WaveLength_Feet(Freq : Real):Real;
FUNCTION M2Ft(d : REAL):REAL;
FUNCTION Ft2M(D : REAL):REAL;
FUNCTION Ft2In(D : REAL):REAL;
FUNCTION In2Ft(D : REAL):REAL;
FUNCTION M2CM(D : REAL):REAL;
FUNCTION CM2M(D : REAL):REAL;
FUNCTION M2MM(D : REAL):REAL;
FUNCTION MM2M(D : REAL):REAL;
FUNCTION M2IN(D : REAL):REAL;
FUNCTION IN2M(D : REAL):REAL;

IMPLEMENTATION

FUNCTION M2MM(D : REAL):REAL;
BEGIN M2MM := D * 1000 END;
FUNCTION MM2M(D : REAl):REAL;
BEGIN MM2M := D / 1000 END;
FUNCTION CM2M(D : REAL):REAL;
BEGIN CM2M := D / 100 END;
FUNCTION M2CM(D : REAL):REAL;
BEGIN M2CM := D * 100 END;
FUNCTION In2Ft(D : REAL):REAL;
BEGIN In2Ft := D / 12 END;
FUNCTION In2M(D : REAL):REAL;
BEGIN In2M := D/(3.28084 * 12) END;
FUNCTION M2In(D : REAL):REAL;
BEGIN M2In := D * (3.28084 * 12) END;
FUNCTION Ft2M(D : REAL):REAL;
BEGIN Ft2M := D/3.28084 END;
FUNCTION Ft2In(D:REAL):REAL;
BEGIN Ft2In := D * 12 END;
FUNCTION M2Ft(D : REAL):REAL;
BEGIN M2Ft := (D * 3.28084) END;
FUNCTION WaveLength(Freq : Real):Real;
BEGIN WaveLength := (300 / Freq) END;
FUNCTION WaveLength_Feet(Freq : Real):Real;
BEGIN WaveLength_Feet := (936 / Freq) END;


BEGIN

END.
